home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1987 February
/
1987-02.d64
/
collision course
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
13KB
|
225 lines
10 poke 53280,0:poke 53281,0:a$=" : : : : :"
20 print"[147][129] [213][195][195][201][157][157][157][157][194][213][201][194][157][157][157][157][157] [194][194][194][194][157][157][157][157][194][194][202][203][157][157][157][157][194][194] [213][195][195][201][213][201] [213][201] [213][195][195][201][213][195][195][201]";
30 print"[213][195][195][201][213][195][195][201][213][201] [194][194] [194][213][201][194][194][194] [194][194] [202][201][213][203][194][213][201][194][202][201][213][203][194][213][201][194][194][202][195][201] [194][194] [194][194][194][194][194][194]";
40 print" [194][194] [194][194] [194][194][202][203] [194][194] [194][194][194][194][194] [194] [194][194][213][201][194][194][194][194][194][194] [194][194] [194][194] [202][177][178][201] [194][194] [194][194][194][194][194] [194] ";
50 print" [194][194][194][194][194][194][194][194][194][194] [194][194] [194][194] [213][201][194][194] [194][194] [194][194][194][194][194][213][201][194] [194][202][203][194][194][202][203][194][194][202][195][201][194][202][195][201][213][203][202][201][194][202][203][194][213]";
60 print"[203][202][201][194][202][203][194][194][194][194][194] [202][195][195][203][202][195][195][203][202][195][195][203][202][195][195][203][202][195][195][203][202][195][195][203][202][195][195][203][202][195][195][203][202][203][202][203] ";
70 print"[213][195][195][201][157][157][157][157][194][213][201][194][157][157][157][157][194][194][194][194][157][157][157][157][194][194][202][203][157][157][157][157][194][194] [213][195][195][201][213][201][213][201][213][201] [213][195][195][201][213][195][195][201] ";
80 printspc(12)" [194][194] [194][213][201][194][194][194][194][194][194][202][195][201][194][213][201][194][194][213][195][203]"spc(16)"[194][194] [194][194][194][194][194][194][194][194][194][213][195][203][194][194][202][203][194][194] ";
90 printspc(16)"[194][194][213][201][194][194][194][194][194][194][194][194][194][194] [202][177][178][201][194][202][201]"spc(17)"[194][194][194][194][194][194][194][194][194][194][194][194][194][194] [213][201][194][194][194][213][203] ";
100 printspc(14)"[194][202][203][194][194][202][203][194][194][202][203][194][194][194] [194][202][203][194][194][202][195][201]"spc(16)"[202][195][195][203][202][195][195][203][202][195][195][203][202][203] [202][195][195][203][202][195][195][203]"
110 printspc(13)"[155]please wait[129]"
120 for l=54272 to 54295:poke l,0:next:poke 54276,64:poke 54283,32
130 for t=0 to 255:poke 16384-256+t,0:next
140 for k=0 to 3:for t=0 to 7:read d:poke 16384-256+z,d:z=z+3:next:z=z+40:next
150 ml$="[162]"+chr$(8)+"[189]<"+chr$(3)+"[149]x[202]"+chr$(16)+chr$(248)+"l[191][163]":poke 835,0
160 poke 53272,peek(53272)and 240 or 12
170 poke 836,208:poke 830,0:poke 831,216:poke 828,0:poke 829,56:poke 56334,0
180 poke 1,51:ml$=ml$:sys(peek(51)+256*peek(52)):poke 1,55:poke 56334,1
190 for i=12568 to 12759:read j:poke i,j:next:if peek(49152)=124 then 220
200 for i=49152 to 52199:read a:poke i,a:cs=cs+a:next
210 if cs<>211178 then print"error in data":stop
220 lv=1:cars=3:for t=0 to 8:poke 1024-16+t,0:next:poke 171,238:poke 830,lv
230 sys 49831:poke 1607,lv+48
240 print""tab(20-ca)mid$(a$,2,2*ca):sys 49887
250 if peek(838)=1 then 320
260 lv=lv+1:poke 830,lv:poke 171,peek(171)+2:poke 54276,0:gosub 460
270 gosub 400:print"[157][157][157]level completed":for x=1 to 2000:next
280 poke 1010,peek(1010)+lv-1
290 gosub 400:print"[157][157][157] bonus of"(lv-1)*100"[157] ":for x=1 to 2000:next
300 if lv=3 or lv=6 then ca=ca+1:gosub 500
310 goto 230
320 gosub 410:car=car-1
330 gosub 400:print" "
340 print""tab(20-ca)mid$(a$,2,2*ca)
350 if car>0 then 380
360 poke 53269,0:gosub 400:print"game over":for x=1 to 2000:next
370 gosub 400:print"press fire":wait 56320,16,16:goto 220
380 poke 53269,0:tm=ti:sys 49897:if tm+8>ti then 380
390 goto 250
400 print""spc(15);:return
410 poke 53251,peek(53249):poke 54276,0:poke 54292,240:poke 54290,129
420 poke 54287,10:gosub430:poke 54287,0:return
430 for z=1 to 20:poke 53265,peek(53265) and 248 or rnd(1)*8
440 poke 53270,peek(53270)and240 or rnd(1)*8:next:poke 53265,27:poke 53270,200
450 return
460 for l=54272 to 54295:poke l,0:next:poke 54296,15:poke 54277,8
470 poke 54278,255:poke 54276,23:for z=1 to 10:poke 54287,z*2:for f=1 to 10
480 poke 54273,10:next f,z:poke 54278,15:poke 54276,64:poke 54283,32:return
490 poke 54276,64:poke 54283,32:return
500 for z=1to4:gosub 400:print"[157][157] bonus car ":for x=1 to 300:next
510 gosub400:print"[157][157] ":for x=1 to 300:next:next:return
520 data 195,255,219,24,60,255,255,195,231
530 data 231,114,126,126,114,231,231,195,255,255,60,24,219,255,195,231
540 data 231,78,126,126,78,231,231,0,96,96,96,96,126,0,0,0,126,102,96,102
550 data 126,0,0,0,126,96,120,96,126,0,0,0,126,102,102,102,126,0,0,0,126
560 data 102,102,120,108,0,0,126,102,96,126,6,102,126,0,0,102,102,102,102
570 data 60,0,0,0,102,102,102,60,24,0,0,126,102,96,96,96,102,126,0,0,60
580 data 24,24,24,60,0,0,0,118,126,126,110,102,0,0,0,0,0,24,24,0,0,0,0,60
590 data 96,60,6,124,0,0,0,60,102,110,118,102,60,0,0,24,56,24,24,24,126
600 data 0,0,62,102,12,48,96,126,0,0,126,6,28,6,6,124,0,0,102,102,102
610 data 127,6,6,0,0,126,96,124,6,102,60,0,0,60,96,124,102,102,60,0,0
620 data 126,102,12,24,24,24,0,0,60,102,60,102,102,60,0
630 data 0,60,102,62,6,102,60,0,195,255,219,24,60,255,255,195
640 rem *** ml data ***
650 data 124,178,52,114,5,7,4,3,132,194,44,98,234,234,234,234
660 data 140,210,36,82,234,234,234,234,148,226,28,66,234,234,234,234
670 data 165,162,41,7,208,53,162,0,142,2,220,173,0,220,41,4
680 data 208,3,206,64,3,173,0,220,41,8,208,3,238,64,3,173
690 data 0,220,41,16,240,13,169,1,141,65,3,169,1,141,1,212
700 data 56,176,8,142,65,3,169,2,141,1,212,202,142,2,220,173
710 data 64,3,41,3,141,64,3,162,0,160,0,134,2,174,64,3
720 data 189,4,192,166,2,157,228,217,157,252,217,153,99,216,153,147
730 data 218,152,24,105,40,168,232,224,7,208,224,165,179,240,3,56
740 data 233,80,133,179,141,8,212,169,1,141,25,208,173,13,220,41
750 data 1,240,3,76,49,234,76,188,254,162,0,138,157,64,3,232
760 data 224,128,208,248,169,226,141,120,3,169,226,141,121,3,169,84
770 data 141,112,3,169,92,141,113,3,169,192,141,0,212,169,6,141
780 data 39,208,141,97,3,169,3,141,96,3,169,128,141,105,3,169
790 data 3,141,88,3,169,3,141,89,3,169,27,141,17,208,169,127
800 data 141,13,220,169,32,141,20,3,169,192,141,21,3,169,129,141
810 data 26,208,169,3,141,21,208,169,3,141,64,3,169,0,141,32
820 data 208,141,33,208,169,15,141,24,212,169,240,141,13,212,141,6
830 data 212,169,33,141,11,212,169,65,141,4,212,169,9,141,3,212
840 data 141,40,208,96,188,112,3,189,96,3,201,1,208,1,200,201
850 data 3,208,1,136,152,157,112,3,188,120,3,189,96,3,208,1
860 data 136,201,2,208,1,200,152,157,120,3,222,80,3,96,254,96
870 data 3,189,104,3,240,6,222,96,3,222,96,3,189,96,3,41
880 data 3,157,96,3,32,52,193,96,162,0,189,112,3,240,80,224
890 data 1,208,6,173,66,3,208,71,234,32,52,193,189,88,3,10
900 data 10,10,168,189,96,3,41,1,201,1,208,22,189,112,3,217
910 data 0,192,208,3,32,94,193,189,112,3,217,2,192,208,3,32
920 data 94,193,189,96,3,41,1,208,22,189,120,3,217,1,192,208
930 data 3,32,94,193,189,120,3,217,3,192,208,3,32,94,193,232
940 data 224,2,208,166,96,162,0,134,255,169,1,133,254,160,0,189
950 data 112,3,24,10,153,0,208,144,6,165,254,5,255,133,255,189
960 data 120,3,153,1,208,6,254,189,96,3,24,105,252,157,248,7
970 data 232,200,200,224,8,208,216,165,255,141,16,208,96,76,148,194
980 data 162,0,189,112,3,240,246,189,96,3,41,1,208,58,189,120
990 data 3,201,146,240,4,201,147,208,47,160,146,201,146,208,2,160
1000 data 147,152,157,120,3,173,64,3,157,88,3,10,10,10,188,96
1010 data 3,208,3,24,105,2,188,104,3,240,2,73,2,168,185,0
1020 data 192,157,112,3,56,176,61,234,189,112,3,201,87,240,4,201
1030 data 88,208,49,160,87,201,87,208,2,160,88,152,157,112,3,173
1040 data 64,3,10,10,10,188,96,3,192,1,208,3,24,105,2,188
1050 data 104,3,240,2,73,2,168,200,185,0,192,157,120,3,173,64
1060 data 3,157,88,3,232,224,1,208,6,173,66,3,240,5,232,224
1070 data 2,240,3,76,18,194,96,162,0,189,232,195,157,0,4,189
1080 data 232,196,